R Markdown test rmd

---

dir_git <- '~/github/provRmd'
library(dplyr)
library(readr)
library(stringr)

dir_test <- file.path(dir_git, 'rmd_testing')

### set up provenance tracking for this script:
# document(); install()
library(provRmd)
prov_setup()### initializes prov_track and loads functions

1 read a table; capture prov info

table1_file <- file.path(dir_test, 'table1.csv')
table1      <- read.csv(table1_file, stringsAsFactors = FALSE)

table2_file <- file.path(dir_test, 'table2.csv')
write.csv(table1, table2_file)

table3_file <- file.path(dir_test, 'table3.csv')
write.csv(table1, table3_file)

source(file.path(dir_test, 'test_source.R'))

DT::datatable(table1,   ### does not display system and session info
              caption  = 'this is a sample table:',              
              rownames = FALSE,
              class    = 'stripe hover compact',
              options  = list(dom = 'tp'))

---

2 The next section (below the divider) is the footer, knitted as a child

The code for the R code chunk header looks like this:

{r child = system.file('footer/prov_ftr1.Rmd', package = 'provRmd')}

Note that it is executed as if it were just part of this main document; it numbers the section (“Provenance”) as a continuation of the numbering, and the variables are evaluated in the environment of the main document.

---

3 Provenance

this is a dummy footer document.

Done.

---

footer_fun <- function() {
  y <- system.file('footer/prov_ftr3.Rmd', package = 'provRmd'); message('footer 3 exists? ', file.exists(y))
  x <- knitr::knit_child(y)
  return(x)
}

---

4 Provenance

• Run ID: 20 (8c11acb); run tag: “standard run”
• Run elapsed time: 1.797 seconds; run memory usage: NA MB
• System info: System: Darwin, Release: 15.6.0. Machine: x86_64. User: ohara.
• Session info
  • R version: R version 3.3.1 (2016-06-21), Platform: x86_64-apple-darwin13.4.0, Running under: OS X 10.11.6 (El Capitan).
  • Attached base packages: stats, graphics, grDevices, utils, datasets, methods, base
  • Other attached packages: provRmd_0.0.1.1, stringr_1.0.0, readr_0.2.2, dplyr_0.5.0

these footers do not work:

`.r knit_child('prov/prov_ftr1.Rmd')`

`.r prov_wrapup()`

.```{r footer}
  prov_wrapup()
.```